Napisati program kojim se za dati niz x duzinen sracunava vrednost data sledecom formulom
s=sqr(suma(xi-xnadvuceno)/n-1) gde je xnadvuceno=suma(xi)/n



Sub zad2()
Dim x(100) As Double, n As Long, i As Long, s As Double, sr As Double
Open "niz.txt" For Input As #1
Input #1, n
For i = 1 To n
Input #1, x(i)
Next
Close #1
sr = 0
For i = 1 To n
sr = sr + (x(i) / n)
Next
s = Sqr(sr / (n - 1))
MsgBox ("S=" & s)
End Sub